home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1997
/
MacHack 1997.toast
/
Hacks
/
Hacks ’96
/
VideoFolder 1.0a
/
Source
/
MoreFiles 1.4.1
/
UpperString.p
< prev
next >
Wrap
Text File
|
1995-12-21
|
859b
|
30 lines
{ What's this unit? }
{ }
{ MoreFiles libraries are built with the latest interfaces and libraries }
{ available to me. However, THINK Pascal's libraries have not been }
{ updated recently and so linking is a problem if a name in a libraries }
{ I link with changes. }
{ }
{ One of the things that changed recently is that UprString was renamed }
{ to UpperString in the libraries. Including this unit lets Think Pascal }
{ programs link with MoreFiles. }
{ }
{ Jim Luther, Apple Developer Technical Support }
UNIT UpperString;
INTERFACE
PROCEDURE UpperString (VAR theString: Str255;
diacSens: BOOLEAN);
IMPLEMENTATION
PROCEDURE UpperString (VAR theString: Str255;
diacSens: BOOLEAN);
BEGIN
UprString(theString, diacSens);
END;
END.